paranagua <- ds[ds$county %in% "Paranagua",]
pontal <- ds[ds$county %in% "Pontal do Parana",]
antonina <- ds[ds$county %in% "Antonina",]
pal <- colorNumeric("RdYlBu", domain = ds$year_collected)
leaflet(data = ds) %>%
addTiles() %>%
addPolygons(data = muni,
popup = ~ name_muni,
color = "black",
fillColor = "#C39BD3",
fillOpacity = 0.5,
weight = 1) %>%
addCircleMarkers(data = paranagua,
lng=~longitude, lat=~latitude,
clusterOptions = markerClusterOptions(),
popup = leafpop::popupTable(paranagua),
radius = 7,
stroke = F,
col = ~pal(year_collected),
fillOpacity = 1,
group = "Paranagua") %>%
addCircleMarkers(data = pontal,
lng=~longitude, lat=~latitude,
clusterOptions = markerClusterOptions(),
popup = leafpop::popupTable(pontal),
radius = 7,
stroke = F,
col = ~pal(year_collected),
fillOpacity = 1,
group = "Pontal") %>%
addCircleMarkers(data = antonina,
lng=~longitude, lat=~latitude,
clusterOptions = markerClusterOptions(),
popup = leafpop::popupTable(antonina),
radius = 7,
stroke = F,
col = ~pal(year_collected),
fillOpacity = 1,
group = "Antonina") %>%
leaflet.extras::addResetMapButton() %>%
addLegend(pal = pal,
values = ~year_collected,
title = "Ano",
position = "bottomright") %>%
leaflet::addLayersControl(overlayGroups = c("Paranagua","Pontal","Antonina"),
options = layersControlOptions(collapsed = FALSE)) %>%
addMiniMap(position = "bottomleft",
width = 100, height = 100)